home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-09 / floppies.zip / FLOPPY.ZIP / COMMQ.SC < prev    next >
Text File  |  1992-03-14  |  560b  |  24 lines
  1. ;------------COMMQ.SC
  2. STYLE ATTRIBUTE 30
  3. CLEAR
  4.       MENU{ASK}{FLOPPIES}CHECK
  5.       [S/W] = "N.."
  6.       DO_IT!
  7.       MENU{VIEW}{ANSWER}
  8.       IF (NRECORDS("ANSWER") = 0) THEN
  9.          BEEP
  10.          @ 24,1 CLEAR EOL
  11.          ?? "THERE IS NO COMMERCIAL SOFTWARE LISTED"
  12.          SLEEP 5000
  13.          PLAY "QUERFLOP"
  14.       ENDIF
  15.       MENU{TOOLS}{COPY}{JUSTFAMILY}{FLOPPIES}{ANSWER}{REPLACE}
  16.       EDITKEY
  17.       MENU{IMAGE}{PICKFORM}{F}
  18.       WAIT TABLE
  19.            PROMPT "PRESS F2 WHEN DONE"
  20.            UNTIL "F2"
  21.       DO_IT!
  22. CLEAR
  23. RETURN
  24.